home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
lsp
/
mislib.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
1KB
|
55 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export 'lisp::time)
#!
(lisp::export '(lisp::decode-universal-time lisp::encode-universal-time))
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
lisp::let
(system::real-start system::real-end system::run-start system::run-end system::x)
(lisp::setq system::real-start (lisp::get-internal-real-time))
(lisp::setq system::run-start (lisp::get-internal-run-time))
lisp::setq
system::x
lisp::multiple-value-list
((lisp::setq system::run-end (lisp::get-internal-run-time)) (lisp::setq system::real-end (lisp::get-internal-real-time)) (lisp::fresh-line lisp::*trace-output*) (lisp::format lisp::*trace-output* "real time : ~,3F secs~%~
run time : ~,3F secs~%" (lisp::/ (lisp::- system::real-end system::real-start) lisp::internal-time-units-per-second) (lisp::/ (lisp::- system::run-end system::run-start) lisp::internal-time-units-per-second)) (lisp::values-list system::x))
system::month-days-list
(31 28 31 30 31 30 31 31 30 31 30 31)
system::seconds-per-day
86400
4
100
400
1900
365
-460
system::*default-time-zone*
3600
7
60
366
1
29
2
"#.month-days-list"
13
0
99
8
-50
50
lisp::proclaim
lisp::time
system::*make-constant
system::leap-year-p
system::number-of-days-from-1900
lisp::decode-universal-time
lisp::encode-universal-time
lisp::get-decoded-time
)